home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Intervals / i-expansion-series < prev    next >
Lisp/Scheme  |  1998-10-27  |  2KB  |  84 lines
  1. i-expansion-series  seed count max-interval step change-count interval
  2.  
  3.  
  4. (setq intervals1
  5.       (i-expansion-series nil 40 6
  6.                              '(1 -1 2 -2) '(1 2 3) '(-6 -5 3 4)))
  7.  
  8. (setq intervals2
  9.       (i-expansion-series .56 40 6
  10.                              '(1 -1 2 -2) '(1 2 3) '(-6 -5 3 4)))
  11.  
  12. (i-process 'a6 'piano intervals1)
  13. (i-process nil 'piano intervals2)
  14.  
  15. With out a range of interval:
  16.  
  17. (i-expansion-series nil 40 nil
  18.                        '(1 -1 2 -2) '(1 2 3) '(-6 -5 3 4))
  19. (i-expansion-series .56 40 nil
  20.                        '(1 -1 2 -2) '(1 2 3) '(-6 -5 3 4))
  21.  
  22.  
  23. ;;; -----------------------------------------------------------------------------
  24. ;;;
  25. ;;; Copyright © 1997 MRAC
  26. ;;; Author: Janusz Podrazik
  27. ;;; Created: 1997/09/17
  28. ;;; Example: i-expansion
  29. ;;;
  30. ;;; -----------------------------------------------------------------------------
  31.  
  32. (setq sym-par1
  33.       (i-process 'c7 'c2 'c8
  34.                   (flatten
  35.                    (i-expansion-series .097568 100 nil
  36.                                     '(1 -1 2 -2) '(1 2) '(-12 -5 3 12)))))
  37.  
  38. (setq sym-par2
  39.       (i-process 31 'c2 'c8
  40.                   (flatten
  41.                    (i-expansion-series .543540 100 nil
  42.                                     '(1 -1 2 -2) '(1 2) '(31 6 -24 4)))))
  43.  
  44. (setq symbol1 (flatten (list sym-par1 sym-par2 (reverse sym-par1))))
  45. (setq symbol2 (symbol-transpose~ -9 (subseq symbol1 88 (length symbol1))))
  46.  
  47. (setq len (length symbol2))
  48. (setq length (gen-repeat len '(1/32)))
  49.  
  50. (setq velocity
  51.       (cfunction
  52.         (vector-resynthesize
  53.          4
  54.          (gen-noise-white len 1 .06832) nil t)
  55.         (g-integer 40 63)))
  56.  
  57.  
  58. (def-symbol
  59.   piano symbol2)
  60.  
  61. (def-length
  62.   piano length)
  63.  
  64. (def-zone
  65.   piano (make-zone (length-of piano)))
  66.  
  67. (def-velocity
  68.   piano velocity)
  69.  
  70. (def-channel
  71.   piano k2000i-1)
  72.  
  73. (def-program k2000p
  74.   piano stereo-grand)
  75.  
  76. (def-tonality
  77.   piano (activate-tonality (chromatic c 5)))
  78.  
  79. (def-tempo 72)
  80.  
  81. (compile-instrument-p
  82.  "ccl;output:" "i-expansion.midi" piano)
  83.  
  84.